home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / REFORMAT.LST < prev    next >
Encoding:
File List  |  1992-01-25  |  629 b   |  31 lines
  1. a$="FRED FLINTSTONE of the MOUNTIES. Dan Panke is an expert programmer!"
  2. CLS
  3. @reformat_text(a$,76,1,4)
  4. ~INP(2)
  5. PROCEDURE reformat_text(txt$,x%,y%,width%)
  6.   LOCAL xa$,xa%,xb%
  7.   REPEAT
  8.     xa$=LEFT$(txt$,width%+1)
  9.     xa%=RINSTR(xa$," ")
  10.     IF xa%
  11.       xb%=1
  12.       xa$=LEFT$(xa$,xa%-1)
  13.     ELSE
  14.       xb%=0
  15.       xa%=width%+1
  16.       xa$=LEFT$(xa$,xa%-1)
  17.     ENDIF
  18.     IF txt$=xa$
  19.       txt$=""
  20.     ELSE
  21.       IF xb%
  22.         txt$=RIGHT$(txt$,LEN(txt$)-LEN(xa$)-1)
  23.       ELSE
  24.         txt$=RIGHT$(txt$,LEN(txt$)-LEN(xa$))
  25.       ENDIF
  26.     ENDIF
  27.     PRINT AT(x%,y%);xa$;
  28.     INC y%
  29.   UNTIL txt$=""
  30. RETURN
  31.